10 GOTO100
50 OPEN15,8,15,"I0":CLOSE15
100 POKE53281,9:POKE53280,0
110 PRINTCHR$(142)"[147]";
115 PRINT"[144]   [172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
117 PRINT"[144]   [167][158]                                [146][144][165]"
120 PRINT"   [167][158] C O M P U T E R    J U I C E R [146][144][165]"
123 PRINT"[144]   [167][158]                                [146][144][165]"
125 PRINT"   [188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
200 PRINT" A[158]NNIHILATE     B[158]LEND        C[158]HOP"
210 PRINT" D[158]ISINTEGRATE   E[158]VISCERATE   F[158]LIP"
220 PRINT" G[158]RIND          H[158]ACK         I[158]GNITE"
230 PRINT" J[158]IGGLE         K[158]EELHAUL     L[158]IQUIFY"
240 PRINT" M[158]IX            N[158]EUTRALIZE   O[158]SCILLATE"
250 PRINT" P[158]UREE          Q[158]UAKE        R[158]OTATE"
260 PRINT" S[158]PLATTER       T[158]HRASH       U[158]NDULATE"
270 PRINT" V[158]IVISECT       W[158]OBBLE       X[158]YLOPHONE"
280 PRINT" Y[158]ECCCH         Z[158]AP"
300 PRINT"            CHOOSE YOUR SPEED"
400 GETA$:IFA$=""THEN400
410 IFA$<"A"ORA$>"Z"THEN400
415 PRINT"[145]                                "
420 PRINT""
430 PRINTTAB(5)"[144][172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
440 PRINTTAB(5)"[167]                            [146][144][165]"
450 PRINTTAB(5)"[167]  READING THE SERIAL NUMBER [146][144][165]"
460 PRINTTAB(5)"[167]         OF YOUR DRIVE      [146][144][165]"
470 PRINTTAB(5)"[167]                            [146][144][165]"
480 PRINTTAB(5)"[188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
500 OPEN15,8,15,"I0":CLOSE15
510 FORT=0TO2000:NEXT
520 PRINTTAB(6)"[144][172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
530 PRINTTAB(6)"[167]                          [146][144][165]"
540 PRINTTAB(6)"[167] YOUR DRIVE SERIAL NUMBER [146][144][165]"
550 PRINTTAB(6)"[167] IS HIGHER THAN A00000034 [146][144][165]"
555 PRINTTAB(6)"[167]    DO YOU WANT TO TRY    [146][144][165]"
557 PRINTTAB(6)"[167]   ANOTHER DRIVE? ([158]Y/[158]N)   [146][144][165]"
560 PRINTTAB(6)"[167]                          [146][144][165]"
570 PRINTTAB(6)"[188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
580 GETA$:IFA$<>"Y"ANDA$<>"N"THEN580
590 IFA$="Y"THEN110
600 PRINTTAB(6)"[144][172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
610 PRINTTAB(6)"[167]                          [146][144][165]"
620 PRINTTAB(6)"[167] BACK TO LOADSTAR? ([158]Y/[158]N)  [146][144][165]"
630 PRINTTAB(6)"[167]                          [146][144][165]"
640 PRINTTAB(6)"[188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
650 GETA$:IFA$<>"Y"ANDA$<>"N"THEN650
660 IFA$="N"THEN110
670 LOAD"HELLO CONNECT",8